Microsoft Excel (2013)

Dans cet exemple, nous créons un rapport Excel qui compte le nombre de prêts entrants et sortants et les affiche dans un tableau trié par le statut de l'état d'objet.

Dans EMu :

1. Rechercher ou récupérer un groupe d'enregistrements sur lesquels effectuer un rapport.

   Dans cet exemple, nous recherchons des enregistrements dans le module Prêts/Emprunts.

2. Sélectionner Rapports dans l'onglet Accueil du ruban pour afficher la boîte Rapports.
3. Cliquer Nouveau dans la boîte Rapport pour afficher la boîte Propriétés du rapport.
4. Sur l'onglet Type de rapport, entrer un nom descriptif pour le Rapport.
5. Sélectionner Microsoft Excel à partir de la liste déroulante Type :

   

6. Sur l'onglet Champs, ajouter les champs que vous souhaitez inclure dans le rapport.

   Dans cet exemple, nous ajoutons :

   • Prêt/emprunt
   • Date de début : (Détails de début du prêt/emprunt)
   • État de l'objet : (Constat d’état)

   

7. Apportez les modifications nécessaires aux onglets Ordre du tri, Tri Options et Sécurité.

   Note: Pour plus de détails sur la façon de créer le rapport dans EMu, voir 1 : Créer le rapport dans EMu.

8. Cliquez sur OK pour ajouter le nouveau rapport à la fenêtre Rapports :

   

9. Lancer le rapport :
   1. Sélectionnez le rapport dans la fenêtre Rapports.
   2. Cliquez sur Rapport sur tous.

   Un message s'affiche indiquant que votre rapport n'existe pas sur le serveur. C'est normal, car le rapport n'a pas encore été créé dans l'application tierce (par exemple Excel) :

   

10. Cliquer Oui.

    Excel s'ouvrira.

    Si vous cliquez sur Non, MS Excel ne s'ouvrira pas, mais les fichiers de sortie seront quand même générés et copiés sur votre ordinateur.

11. Ouvrir un classeur Excel.

Ensuite, nous :

• Établissons la connexion entre EMu et Excel (en spécifiant le DSN de la source de données).
• Ajoutons les champs au rapport Excel et nous spécifions les jointures entre les tables.
• Configurons le rapport pour actualiser les données chaque fois que le rapport est exécuté.

Avec Excel 2013 tout cela peut être géré sans avoir besoin d'écrire du code Visual Basic :

1. Sur l'onglet Données (1), sélectionner À partir d'autres sources (2)>Provenance : Microsoft Query (3) :

   

   La boîte Choisir une source de données s'affiche.

2. Sélectionnez la source de données pour le module EMu dans lequel vous exécutez le rapport. Dans cet exemple, nous sélectionnons Prêts/Emprunts EMu :

   

   Cette étape établit la connexion entre EMu et Excel en spécifiant le DSN de la source de données EMu.

   Note: Assurez-vous que la case Utiliser l'assistant de requête pour créer/modifier les requêtes est cochée.

3. Cliquer sur OK pour continuer.

   La boîte Assistant Requête - Choisir les colonnes s'affiche avec une liste des fichiers de données (tables) disponibles dans la source de données spécifiée à l'Étape 2.

   Développer chaque table révèle quels champs sont disponibles :

   

   Ensuite, nous ajoutons les champs au rapport et nous spécifions les jointures entre les tables.

4. Pour inclure toutes les colonnes disponibles des deux tables dans notre rapport :
   1. Dans le volet Tables et colonnes disponibles, sélectionnez une table (par exemple eloans.csv).
   2. Cliquez sur .

      Toutes les colonnes disponibles pour la table sont ajoutées au voletColonnes de votre requête.

   3. Répétez les étapes 1-2 pour toutes les autres tables (ou sélectionnez une colonne et cliquez sur ).

      Veillez à inclure la colonne clé commune à chaque table (par exemple, eloans_key dans cet exemple). C’est essentiel pour spécifier la jointure entre les tables.

      Dans cet exemple, nous avons inclus toutes les colonnes sauf une :

      

5. Cliquez sur Suivant> pour continuer.

   Un message d'avertissement s'affiche indiquant qu'il est nécessaire de joindre les tables manuellement en « faisant glisser les champs à joindre entre les tables ».

6. Cliquer sur OK.

   La fenêtre Microsoft Query s'affiche. Ici, nous voyons les tables incluses dans la requête, et les colonnes de chaque table, ainsi que les données dans chaque colonne :

   

7. Pour joindre les deux tables dans cet exemple :
   1. Cliquez sur la colonne de clé commune dans la table de gauche (eloans_key dans cet exemple).
   2. Faites-la glisser vers la colonne clé correspondante dans l’autre table.

   Les deux tables sont jointes (1) et les enregistrements de chaque table sont fusionnés (2) :

   

   Dans la fenêtre Microsoft Query, il est possible de trier les données, d'ajouter des critères (filtres), de spécifier des instructions SQL, etc. :

   

8. Cliquer sur Renvoyer les données pour afficher la boîte Importation de données :

   

9. Par défaut, les données seront placées sur la feuille de calcul dans la cellule en haut à gauche (A1). Pour les placer ailleurs, cliquer sur une cellule de la feuille de calcul.
10. Cliquer sur Propriétés pour afficher la boîte Propriétés de connexion.
11. Cocher la case Actualiser les données lors de l'ouverture du fichier :

    

    Cette étape garantit que lorsque le rapport est exécuté, les données sont actualisées.

12. Cliquer sur OK pour fermer la boîte Propriétés de connexion.
13. Cliquez sur OK pour fermer la boîte de dialogue Importation des données.

    Les données du rapport sont chargées dans la feuille de calcul.

    EMu et Excel sont maintenant configurés pour communiquer entre eux et vous êtes maintenant en mesure de mettre en page votre rapport selon vos besoins. Cela peut impliquer du code VB. Voir Exemple de rapport Excel pour une démonstration.

14. Sauvegarder et fermer la feuille de calcul en tant que type : Classeur Excel (prenant en charge les macros) (par exemple Loans.xlsm).

Enfin nous réenregistrons le rapport dans EMu.

Note: Le document du rapport principal doit être fermé avant de pouvoir le lier au rapport EMu.

1. Ouvrir le module pour lequel le rapport a été créé.
2. Rechercher ou récupérer un groupe d'enregistrements sur lesquels effectuer un rapport.
3. Dans le ruban, sélectionner Rapports dans l'onglet Accueil du ruban pour afficher la fenêtre Rapports.
4. Sélectionner le nouveau rapport et cliquer Propriétés pour afficher la boîte Propriétés du rapport :
5. Sur l'onglet Type de rapport, cliquer Sauvegarder.

   Naviguer jusqu'à l'emplacement où le rapport a été sauvegardé et double-cliquer sur le fichier du rapport.

   Le rapport apparaît maintenant dans la boîte Propriétés du rapport :

   

6. Cliquer OK pour fermer la boîte Propriétés du rapport et retourner à la boîte Rapport.
7. Lancer le rapport.

   MS Excel s'ouvre avec le rapport généré.

Après avoir exporté les données EMu dans un rapport Excel, il est possible de le mettre en page et de l'étendre pour qu'il présente les informations de la meilleure façon possible. Dans certains cas, un code Visual Basic supplémentaire est nécessaire.

Ce qui suit est un exemple d'un rapport qui totalise le nombre de prêts entrants (incoming) et sortants (outgoing) et affiche une répartition selon le statut de l'objet :

Le code Visual Basic qui produit ce rapport est :

Private Sub Workbook_Open()

ActiveWorkbook.RefreshAll

Dim dataSheet As Worksheet

Dim emptyRow As Integer

Dim lastDataRow As Integer

Dim incomingCount As Integer

Dim outgoingCount As Integer

'Be sure to rename the worksheet to Data

Set dataSheet = ThisWorkbook.Worksheets("Data")

'Find the first empty row

emptyRow = dataSheet.Range("A" & Rows.Count).End(xlUp).Row

lastDataRow = emptyRow

emptyRow = lastDataRow + 3

'Add and format summary title

Worksheets("Data").Range("A" + (CStr(emptyRow))).Value = "Loan Summary"

Worksheets("Data").Range("A" + (CStr(emptyRow)) + ":B" + (CStr(emptyRow))).Font.Bold = True

Worksheets("Data").Range("A" + (CStr(emptyRow)) + ":B" + (CStr(emptyRow))).Interior.Color = RGB(91, 155, 213)

Worksheets("Data").Range("A" + (CStr(emptyRow)) + ":B" + (CStr(emptyRow))).Font.Color = RGB(255, 255, 255)

'Incoming

emptyRow = emptyRow + 1

incomingCount = Application.WorksheetFunction.CountIf(Range("B2:B" + (CStr(lastDataRow))), "Incoming")

Worksheets("Data").Range("A" + (CStr(emptyRow))).Value = "Incoming"

Worksheets("Data").Range("B" + (CStr(emptyRow))).Value = incomingCount

'Outgoing

emptyRow = emptyRow + 1

outgoingCount = Application.WorksheetFunction.CountIf(Range("B2:B" + (CStr(lastDataRow))), "Outgoing")

Worksheets("Data").Range("A" + (CStr(emptyRow))).Value = "Outgoing"

Worksheets("Data").Range("B" + (CStr(emptyRow))).Value = outgoingCount

'Total

emptyRow = emptyRow + 1

Worksheets("Data").Range("A" + (CStr(emptyRow))).Value = "Total"

Worksheets("Data").Range("A" + (CStr(emptyRow))).Font.Bold = True

Worksheets("Data").Range("B" + (CStr(emptyRow))).Value = incomingCount + outgoingCount

Worksheets("Data").Range("B" + (CStr(emptyRow))).Font.Bold = True

'Add and format summary title

emptyRow = dataSheet.Range("D" & Rows.Count).End(xlUp).Row

lastDataRow = emptyRow

emptyRow = lastDataRow + 3

Worksheets("Data").Range("D" + (CStr(emptyRow))).Value = "Condition Status Summary"

Worksheets("Data").Range("D" + (CStr(emptyRow)) + ":E" + (CStr(emptyRow))).Font.Bold = True

Worksheets("Data").Range("D" + (CStr(emptyRow)) + ":E" + (CStr(emptyRow))).Interior.Color = RGB(91, 155, 213)

Worksheets("Data").Range("D" + (CStr(emptyRow)) + ":E" + (CStr(emptyRow))).Font.Color = RGB(255, 255, 255)

emptyRow = emptyRow + 1

Dim dict As Object

Set dict = CreateObject("scripting.dictionary")

Dim varray As Variant, element As Variant

varray = Range("E2:E" + (CStr(lastDataRow))).Value

If (lastDataRow > 2) Then

'Generate unique list and count

For Each element In varray

If dict.exists(element) Then

dict.Item(element) = dict.Item(element) + 1

Else

dict.Add element, 1

End If

Next

'Paste report somewhere

Worksheets("Data").Range("D" + (CStr(emptyRow))).Resize(dict.Count, 1).Value = _

WorksheetFunction.Transpose(dict.keys)

Worksheets("Data").Range("E" + (CStr(emptyRow))).Resize(dict.Count, 1).Value = _

WorksheetFunction.Transpose(dict.items)

Else

Worksheets("Data").Range("D" + (CStr(emptyRow))).Value = Worksheets("Data").Range("E" + (CStr(lastDataRow))).Value

Worksheets("Data").Range("E" + (CStr(emptyRow))).Value = 1

End If

End Sub

Ce premier exemple est un rapport simple sur les champs à valeur unique du module Catalogue. Le code VBA fourni dans cet exemple remplira automatiquement les titres et les données de ligne pour chaque colonne sélectionnée.

Dans EMu :

1. Rechercher ou récupérer un groupe d'enregistrements sur lesquels effectuer un rapport.

   Dans cet exemple, nous recherchons des enregistrements dans le module Prêts/Emprunts.

2. Cliquer Rapports dans l'onglet Accueil du ruban pour afficher la boîte Rapports.
3. Cliquer Nouveau dans la boîte Rapport pour afficher la boîte Propriétés du rapport.
4. Sur l'onglet Type de rapport, entrer un nom descriptif pour le Rapport.
5. Sélectionner Microsoft ADO Report à partir de la liste déroulante Type :

   

6. Sur l'onglet Champs, ajouter les champs que vous souhaitez inclure dans le rapport.
7. Apportez les modifications nécessaires aux onglets Ordre du tri, Tri Options et Sécurité.

   Note: Pour plus de détails sur la façon de créer le rapport dans EMu, voir 1 : Créer le rapport dans EMu.

8. Cliquez sur OK pour ajouter le nouveau rapport à la fenêtre Rapports.
9. Lancer le rapport :
   1. Sélectionnez le rapport dans la fenêtre Rapports.
   2. Cliquez sur Rapport sur tous.

   Un message s'affiche indiquant que votre rapport n'existe pas sur le serveur. C'est normal, car le rapport n'a pas encore été créé dans l'application tierce (par exemple Excel) :

   

10. Cliquer Oui.

    Un fichier xml est généré et enregistré avec les données de votre ensemble d'enregistrements. L'emplacement de ce fichier peut varier, mais il se trouve généralement sur :

    C:\Users\[votre nom d'utilisateur]\AppData\\KESoftware\Reports\e[nom du module]

    Par exemple, un rapport exécuté dans le module Personnes / Organisations, enregistrera le fichier xmldata à l'adresse suivante :

    C:\Users\[votre nom d'utilisateur]\AppData\Local\KESoftware\Reports\eparties

    Note: Si vous cliquez sur Non, les fichiers de sortie seront toujours générés et copiés sur votre ordinateur.

    Ce qui se passe ensuite dépend de l'entrée de Registre Reports|Extension. Par exemple, si une entrée de Registre Reports|Extension associe le type de rapport Microsoft ADO aux fichiers Excel, Microsoft Excel s'ouvre.

    Conseil : Si vous souhaitez que les rapports Microsoft ADO soient associés à MS Word, modifiez l'entrée de Registre Reports|Extension en conséquence. Sinon, il suffit de fermer Excel, d'ouvrir MS Word à la place et d'ajouter votre code à Word. Le plus important est de créer une connexion entre le rapport Microsoft (qu'il s'agisse de Word, Excel, Access, etc.) et le fichier xmldata.

11. Dans cet exemple, nous ouvrons un classeur Excel vierge.

1. Dans l'onglet Développeur d'Excel, cliquez sur Visual Basic.

   Microsoft Visual Basic for Applications s'ouvre.

   Conseil : Si l'onglet Développeur ne s'affiche pas, assurez-vous qu’Excel a été correctement configuré.

2. Double-cliquez sur Feuil1 dans le volet VBAProject.
3. Ajoutez votre code.
   Dans cet exemple, nous copions et collons le code VB suivant

   Sub OpenAdoFile()

   	Dim RecordSet As ADODB.RecordSet

   	Dim Worksheet As Excel.Worksheet

   	Dim h As Long

   	Dim col As Long

   	Dim datarow As Long

   	Dim source As String

   	'Get the persisted record set 'Cet exemple spécifie ecatalogue

   	'Assurez-vous de spécifier la bonne table dans votre code

   	source = Environ("LocalAppData") & "\KESoftware\Reports\ecatalogue\xmldata.xml"

   	Set RecordSet = New ADODB.RecordSet

   	RecordSet.Open source, "Provider=MSPersist"

   	'Obtenir la page active à laquelle envoyer les données

   	Set Worksheet = ThisWorkbook.ActiveSheet

   	Application.Visible = True

   	'Mettre tous les en-têtes de colonne

   	col = 1

   	ListColumnNames Worksheet, RecordSet, col

   	'Imprimer toutes les données de la ligne

   	While Not RecordSet.EOF

    col = 1

    datarow = datarow + 1

    For h = 0 To RecordSet.Fields.count - 1

    Worksheet.Cells(datarow + 1, col).Value = RecordSet.Fields(h).Value

    col = col + 1

    Next

    RecordSet.MoveNext

   	Wend

   	Worksheet.Range("A1").CurrentRegion.Select

   	Worksheet.Columns.AutoFit

   	Set RecordSet = Nothing

   End Sub

   Private Sub ListColumnNames(ByVal ws As Excel.Worksheet, ByVal rs As ADODB.RecordSet, ByRef col As Long)	

   	Dim i As Long

   	'Faire défiler l’ensemble d'enregistrement en extrayant les noms des colonnes

   	For i = 0 To rs.Fields.count - 1

    ws.Cells(1, col).Value = rs.Fields(i).Name

    col = col + 1

   	Next

   End Sub

   

4. Double-cliquez sur ThisWorbook dans le volet VBAProject et ajoutez le code suivant :

   Sub Workbook_Open()

   'Charger le fichier ADO

   Sheet1.OpenAdoFile

   End Sub

   

5. Sauvegarder le rapport comme macro-activé et le téléverser dans votre rapport EMu.
6. Lancer le rapport :